library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_17.3.R")

diagnosands <- declare_diagnosands(
  bias = mean(estimate - estimand),
  mean_CI_width = mean(conf.high - conf.low)
)
diagnosis_17.2 <- diagnose_design(declaration_17.3, sims = sims, bootstrap_sims = bootstrap_sims, diagnosands = diagnosands)

write_rds(diagnosis_17.2, file = "diagnosis_objects/diagnosis_17.2.rds")
